home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / CASTLE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  144 lines
  1. 1  IF  PEEK(175) +256 * PEEK(176) < > PEEK(105) +256 * PEEK(106)  THEN  GOTO 4
  2. 2  HIMEM: 32767
  3. 3  CALL  PEEK(175) +256 *( PEEK(176) -9)
  4. 4 H1 = 816:HM = 897:BY = 846:CHRS = 879
  5. 30  CALL  -936: POKE 50,63
  6. 40  FOR L = 1 TO 39: VTAB 1
  7. 50  PRINT  TAB( L)" ": NEXT L
  8. 60  FOR BL = 1 TO 39: VTAB 23
  9. 70  PRINT  TAB( BL)" ": NEXT BL
  10. 80  VTAB 1: FOR VL = 2 TO 23
  11. 90  PRINT  TAB( 1)" ": NEXT VL
  12. 100  VTAB 1: FOR VL = 2 TO 23
  13. 110  HTAB 39: PRINT " ": NEXT VL
  14. 120  VTAB 1
  15. 130  FOR VL = 2 TO 23
  16. 150  PRINT " "
  17. 160  NEXT VL
  18. 170  POKE 50,255
  19. 180  VTAB 6: HTAB 17: PRINT "HELLO"
  20. 190  PRINT : PRINT 
  21. 200  VTAB 9: HTAB 10: PRINT "MY NAME IS APPLE II"
  22. 210  GOSUB 30000
  23. 220  PRINT : PRINT 
  24. 230  VTAB 12: HTAB (10)
  25. 240  PRINT "WHAT IS YOUR NAME ?"
  26. 250  DIM NAME$(20)
  27. 260  VTAB 15: HTAB (2)
  28. 270  PRINT "TYPE FIRST NAME ONLY PRESS RETURN KEY"
  29. 280  VTAB 17: HTAB 16: INPUT NAME$
  30. 290  CALL  -936
  31. 300  VTAB 1: HTAB 15
  32. 310  PRINT "HELLO ";NAME$: PRINT : PRINT 
  33. 320  GOSUB 30000
  34. 330  PRINT "I'M GOING TO DRAW A CASTLE JUST FOR YOU"
  35. 340  PRINT 
  36. 770  GOSUB 30004: GOSUB 30000
  37. 1170  CALL H1
  38. 1180  VTAB 5: HTAB 20: PRINT "045666<CTRL-S>A"
  39. 1190  HTAB 22: PRINT "87 7 8 88"
  40. 1200  HTAB 22: PRINT "663636366"
  41. 1210  HTAB 23: PRINT "1121212"
  42. 1220  HTAB 23: PRINT "12 11 1"
  43. 1230  HTAB 23: PRINT "11212121  11  11"
  44. 1240  HTAB 23: PRINT "12121212121212121"
  45. 1250  HTAB 23: PRINT "11212121212121212"
  46. 1260  HTAB 23: PRINT "<CTRL-R>^1121212121212121"
  47. 1270  HTAB 24: PRINT "^112121212121212"
  48. 1280  HTAB 25: PRINT "^11212121212121"
  49. 1290  HTAB 26: PRINT "12 1121/-.:212"
  50. 1300  HTAB 26: PRINT "11 12;%)+,*&<1"
  51. 1310  HTAB 26: PRINT "12121!#'  ($<CTRL-S>Y<CTRL-R>2"
  52. 1320  VTAB 18: HTAB 34: POKE 768,92: CALL CHRS
  53. 1330  VTAB 18: HTAB 35: POKE 768,93: CALL CHRS
  54. 1340  VTAB 19: HTAB 26: PRINT "112121===>>>11"
  55. 1350  HTAB 26: PRINT "121212===>>>12"
  56. 1355  VTAB 20: HTAB 8: POKE 768,95: CALL CHRS
  57. 1360  VTAB 21: HTAB 4: PRINT "<CTRL-S>KLMNO<CTRL-R>";: HTAB 26: PRINT "112121==?@>>11"
  58. 1370  HTAB 3: PRINT "<CTRL-S>GHIJ<CTRL-R>";: HTAB 26: PRINT "121212===>>>12"
  59. 1380  HTAB 2: PRINT "<CTRL-S>BCDEF<CTRL-R>";: HTAB 26: PRINT "112121      11"
  60. 1390  VTAB 23: HTAB 32: PRINT "<CTRL-S>ZZZ<CTRL-R>"
  61. 1400  VTAB 23: HTAB 35
  62. 1410  FOR I = 1 TO 3: POKE 768,91
  63. 1420  CALL CHRS: NEXT I
  64. 1430  GOSUB 30004
  65. 1440 PL = 32 -( LEN(NAME$)/2)
  66. 1450  VTAB 12: HTAB (PL): PRINT NAME$;: PRINT "S"
  67. 1460  VTAB 13: HTAB 29: PRINT "CASTLE"
  68. 1465  GOSUB 30004: GOSUB 30004
  69. 1470  VTAB 5: HTAB 19: PRINT "9": GOSUB 30005: VTAB 5: HTAB 18: PRINT "9V": GOSUB 30005
  70. 1480  VTAB 5: HTAB 17: PRINT "9 ": VTAB 4: HTAB 18: PRINT "<CTRL-S>WW<CTRL-R>"
  71. 1490  VTAB 6: HTAB 18: PRINT "<CTRL-S>XX<CTRL-R>": GOSUB 30005
  72. 1500  VTAB 5: HTAB 17: PRINT " ": VTAB 6: HTAB 15: PRINT "9": GOSUB 30005
  73. 1510  VTAB 5: HTAB 19: PRINT " ": VTAB 4: HTAB 18: PRINT "  ": VTAB 6: HTAB 18: PRINT "  "
  74. 1520  VTAB 6: HTAB 15: PRINT " "
  75. 1525 X = 0
  76. 1530  FOR PLC = 7 TO 9
  77. 1540  VTAB PLC
  78. 1550 X = X +2
  79. 1560  HTAB (PLC +9 -X)
  80. 1570  PRINT "9": GOSUB 30005
  81. 1580  VTAB PLC: HTAB (PLC +9 -X): PRINT " "
  82. 1590  NEXT PLC
  83. 1595 X = 0
  84. 1600  FOR PLC = 9 TO 13
  85. 1610 X = X +2
  86. 1630  VTAB PLC
  87. 1640  HTAB (PLC +4 -X): PRINT "9": GOSUB 30005
  88. 1650  VTAB PLC: HTAB (PLC +4 -X): PRINT " "
  89. 1660  NEXT PLC
  90. 1670  VTAB 14: HTAB 7: PRINT "9": GOSUB 30005
  91. 1680  VTAB 14: HTAB 7: PRINT " "
  92. 1690  VTAB 15: HTAB 6: PRINT "9": GOSUB 30005
  93. 1700  VTAB 15: HTAB 6: PRINT " "
  94. 1710  VTAB 16: HTAB 6: PRINT "9": GOSUB 30005
  95. 1715  VTAB 16: HTAB 6: PRINT " "
  96. 1720  FOR PLC = 17 TO 21: VTAB PLC: HTAB 5
  97. 1730  PRINT "9": GOSUB 30005
  98. 1740  VTAB PLC: HTAB 5: PRINT " "
  99. 1750  NEXT PLC
  100. 1760  FOR I = 1 TO 3
  101. 1770  VTAB 21: HTAB 3: PRINT "123456"
  102. 1780  VTAB 22: HTAB 3: PRINT "7890!#"
  103. 1790  VTAB 23: HTAB 3: PRINT "$%&&"
  104. 1800  GOSUB 30005
  105. 1810  VTAB 20: HTAB 8: PRINT " "
  106. 1820  VTAB 21: HTAB 3: PRINT "      "
  107. 1830  VTAB 22: HTAB 3: PRINT "      "
  108. 1840  VTAB 23: HTAB 3: PRINT "    "
  109. 1850  GOSUB 30005: NEXT I
  110. 1860  VTAB 23: HTAB 3: PRINT "3)#$<CTRL-S>Y"
  111. 1870  FOR FLG = 22 TO 17  STEP  -1
  112. 1880  VTAB FLG: HTAB 5: PRINT "P":
  113. 1890  NEXT FLG
  114. 1900 T = 17
  115. 1910  FOR FLG = 6 TO 11
  116. 1920  VTAB T: HTAB FLG: PRINT "R": VTAB (T +2): HTAB FLG: PRINT "Q": GOSUB 30005
  117. 1930  NEXT FLG
  118. 1950  VTAB 17: HTAB 12: PRINT "S"
  119. 1960  VTAB 18: HTAB 12: PRINT "T"
  120. 1970  VTAB 19: HTAB 12: PRINT "U<CTRL-R>"
  121. 1980  GOSUB 30004
  122. 1990  VTAB 18: HTAB 7: PRINT "OUCH": GOSUB 30000
  123. 2000  VTAB 18: HTAB 7: PRINT "THAT": GOSUB 30000
  124. 2010  VTAB 18: HTAB 7: PRINT "HURT": GOSUB 30004: GOSUB 30004: GOSUB 30004
  125. 2012  VTAB 3: PRINT "SPACE BAR CLEARS SCREEN"
  126. 2014  IF  PEEK( -16384) <127  THEN  GOTO 2014
  127. 2020  CALL HM: CALL BY: POKE  -16298,0: CALL  -936
  128. 3000  REM ***********************
  129. 3005  REM         3/19/82
  130. 3010  REM    APPLESOFT VERSION
  131. 3020  REM           BY
  132. 3030  REM     LLOYD APPLEGATE
  133. 3040  REM        USING THE
  134. 3050  REM     SCREEN  MACHINE
  135. 3060  REM           BY
  136. 3070  REM       BILL  DEPEW
  137. 3075  REM 
  138. 3080  REM ***********************
  139. 29999  END 
  140. 30000  FOR I = 1 TO 350: NEXT I: RETURN 
  141. 30002  FOR I = 1 TO 75: NEXT I: RETURN 
  142. 30004  FOR I = 1 TO 700: NEXT I: RETURN 
  143. 30005  FOR I = 1 TO 40: NEXT I: RETURN 
  144. 30014  FOR I = 1 TO 1000: NEXT I: RETURN